<!--#include file="base.asp"-->
<!--#include file="incFile.asp"-->
<%
	Dim objXMLHTTP, objXML
	Dim strXML, strURL

	Set objXMLHTTP = Server.CreateObject("Msxml2.SERVERXMLHTTP.4.0")

	strURL = base & "/t_server/vessel_list.asp?"
    strURL = strURL & "mode=1&unique=" & Server.URLEncode(CStr(Now)) & "&Photos=1&fm=1"
	If (InStr(strURL,"r_addr") = 0) Then
		strURL = strURL & "&r_addr=" & CStr(Request.SERVERVARIABLES("REMOTE_ADDR")) & "&server=" & CStr(Request.SERVERVARIABLES("SERVER_NAME")) & Replace(CStr(Request.SERVERVARIABLES("URL")),"my_vessels_list.asp","")
	End If
	strURL = Replace(strURL,"&no_menu=1","")
	strURL = strURL & "&no_menu=1&c_id="&strCompaniesId&"&scid="&strCompaniesId&"&slid="&strLoginsId
	strURL = strURL & "&source_xml"
	
	objXMLHTTP.Open "GET", strURL, False
'Response.Write(CStr(strURL) & "<BR>")
''Response.Write("<a href=""" & strURL & """>View XML</a><br>")
	Call objXMLHTTP.Send("")
	Set objXML = objXMLHTTP.ResponseXML
	Call XMLToHTMLOutput(objXML, "xsl/vessel_list.xsl")
	
	Set objXMLHTTP = Nothing
	Set objXML = Nothing
%>



<body bgcolor="#003745" text="#ffffff">





